home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS21.ADF / CelScripts / Walk.script < prev    next >
Text File  |  1989-01-27  |  3KB  |  110 lines
  1. *script Walk.script 1 320 200
  2. *version 14
  3. *ground_z 512
  4. *speed 20
  5. *define AMIGA_BITMAP body.win
  6. *define AMIGA_BITMAP f1.win
  7. *define AMIGA_BITMAP f2.win
  8. *define AMIGA_BITMAP b1.win
  9. *define AMIGA_BITMAP b2.win
  10.  
  11. *tween 0 200 200 2
  12. *act 8 LOAD_BACKGROUND -2 Work.pic
  13. *act 101 INIT_COLORS -1 0 32 
  14.    (48 208 192 )(224 192 160 )(224 0 0 )(160 0 0 )
  15.    (208 128 0 )(240 224 0 )(128 240 0 )(0 128 0 )
  16.    (0 176 96 )(0 208 208 )(0 160 240 )(0 112 192 )
  17.    (0 0 240 )(112 0 240 )(192 0 224 )(192 0 128 )
  18.    (96 32 0 )(224 80 32 )(160 80 32 )(240 192 160 )
  19.    (48 48 48 )(64 64 64 )(80 80 80 )(96 96 96 )
  20.    (112 112 112 )(128 128 128 )(144 144 144 )(160 160 160 )
  21.    (192 192 192 )(208 208 208 )(224 224 224 )(240 240 240 )
  22. *act 8 INSERT_RASTER  0 body.win 250  100  512 
  23. *act 8 INSERT_RASTER  1 f1.win 245  110  500 
  24. *act 8 INSERT_RASTER  2 b1.win 260  110  520 
  25. *act 6 MOVE_POLY  0 -20 -3  0 
  26. *act 6 MOVE_POLY  1 -20 -3  0 
  27. *act 6 MOVE_POLY  2 -20 -3  0 
  28.  
  29. *tween 0 200 0 0
  30. *act 3 KILL_POLY  1 
  31. *act 8 INSERT_RASTER  1 f2.win 225  107  500 
  32. *act 3 KILL_POLY  2 
  33. *act 8 INSERT_RASTER  2 b2.win 240  107  520 
  34. *act 6 MOVE_POLY  0 -20 -3  0 
  35. *act 6 MOVE_POLY  1 -20 -3  0 
  36. *act 6 MOVE_POLY  2 -20 -3  0 
  37.  
  38. *tween 0 200 0 0
  39. *act 3 KILL_POLY  1 
  40. *act 8 INSERT_RASTER  1 f1.win 205  104  500 
  41. *act 3 KILL_POLY  2 
  42. *act 8 INSERT_RASTER  2 b1.win 220  104  520 
  43. *act 6 MOVE_POLY  0 -20 -3  0 
  44. *act 6 MOVE_POLY  1 -20 -3  0 
  45. *act 6 MOVE_POLY  2 -20 -3  0 
  46.  
  47. *tween 0 200 0 0
  48. *act 3 KILL_POLY  1 
  49. *act 8 INSERT_RASTER  1 f2.win 185  101  500 
  50. *act 3 KILL_POLY  2 
  51. *act 8 INSERT_RASTER  2 b2.win 200  101  520 
  52. *act 6 MOVE_POLY  0 -20 -3  0 
  53. *act 6 MOVE_POLY  1 -20 -3  0 
  54. *act 6 MOVE_POLY  2 -20 -3  0 
  55.  
  56. *tween 0 200 0 0
  57. *act 3 KILL_POLY  1 
  58. *act 8 INSERT_RASTER  1 f1.win 165  98  500 
  59. *act 3 KILL_POLY  2 
  60. *act 8 INSERT_RASTER  2 b1.win 180  98  520 
  61. *act 6 MOVE_POLY  0 -20 -3  0 
  62. *act 6 MOVE_POLY  1 -20 -3  0 
  63. *act 6 MOVE_POLY  2 -20 -3  0 
  64.  
  65. *tween 0 200 0 0
  66. *act 3 KILL_POLY  1 
  67. *act 8 INSERT_RASTER  1 f2.win 145  95  500 
  68. *act 3 KILL_POLY  2 
  69. *act 8 INSERT_RASTER  2 b2.win 160  95  520 
  70. *act 6 MOVE_POLY  0 -20 -3  0 
  71. *act 6 MOVE_POLY  1 -20 -3  0 
  72. *act 6 MOVE_POLY  2 -20 -3  0 
  73.  
  74. *tween 0 200 0 0
  75. *act 3 KILL_POLY  1 
  76. *act 8 INSERT_RASTER  1 f1.win 125  92  500 
  77. *act 3 KILL_POLY  2 
  78. *act 8 INSERT_RASTER  2 b1.win 140  92  520 
  79. *act 6 MOVE_POLY  0 -20 -3  0 
  80. *act 6 MOVE_POLY  1 -20 -3  0 
  81. *act 6 MOVE_POLY  2 -20 -3  0 
  82.  
  83. *tween 0 200 0 0
  84. *act 3 KILL_POLY  1 
  85. *act 8 INSERT_RASTER  1 f2.win 105  89  500 
  86. *act 3 KILL_POLY  2 
  87. *act 8 INSERT_RASTER  2 b2.win 120  89  520 
  88. *act 6 MOVE_POLY  0 -20 -3  0 
  89. *act 6 MOVE_POLY  1 -20 -3  0 
  90. *act 6 MOVE_POLY  2 -20 -3  0 
  91.  
  92. *tween 0 200 0 0
  93. *act 3 KILL_POLY  1 
  94. *act 8 INSERT_RASTER  1 f1.win 85  86  500 
  95. *act 3 KILL_POLY  2 
  96. *act 8 INSERT_RASTER  2 b1.win 100  86  520 
  97. *act 6 MOVE_POLY  0 -20 -3  0 
  98. *act 6 MOVE_POLY  1 -20 -3  0 
  99. *act 6 MOVE_POLY  2 -20 -3  0 
  100.  
  101. *tween 0 200 0 0
  102. *act 3 KILL_POLY  1 
  103. *act 8 INSERT_RASTER  1 f2.win 65  83  500 
  104. *act 3 KILL_POLY  2 
  105. *act 8 INSERT_RASTER  2 b2.win 80  83  520 
  106. *act 6 MOVE_POLY  0 -20 -3  0 
  107. *act 6 MOVE_POLY  1 -20 -3  0 
  108. *act 6 MOVE_POLY  2 -20 -3  0 
  109.  
  110.